home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / text / edit / tecoc-146.lha / tsto.tec < prev    next >
Text File  |  1991-07-05  |  2KB  |  130 lines
  1. 
  2.         Test the O command.
  3.  
  4. 
  5. !
  6.         Testing jump commands is a little hairy.  I do it by setting a
  7. state variable.  At every label,  I test that we're in the proper state.
  8. !
  9. 1us@O!test1!
  10.  
  11. !tag2!
  12. qs-4"e
  13.     test 4 passed (jumping to 3rd (last) tag in a list works)13^T10^T
  14. |
  15.     reached tag2 by mistake, terminating.13^T10^Todone
  16.  
  17. '
  18. 5usOtest5
  19.  
  20.  
  21. !tag1!
  22. qs-3"e
  23.     test 3 passed (jumping to 2nd (middle) tag in a list works)13^T10^T
  24. |
  25.     reached tag1 by mistake, terminating.13^T10^Todone
  26.  
  27. '
  28. 4us@O!tag0,tag1,tag2!
  29.  
  30. !tag0!
  31. qs-2"e
  32.     test 2 passed (jumping to 0th (first) tag in a list works)13^T10^T
  33. |
  34.     reached tag0 by mistake, terminating.13^T10^Todone
  35.  
  36. '
  37. 3us@O!tag0,tag1,tag2!
  38.  
  39.  
  40. !test1!
  41. qs-1"e
  42.     test 1 passed (a simple jump works)13^T10^T
  43. |
  44.     reached test1 by mistake, terminating.13^T10^Todone
  45.  
  46. '
  47. 2us@O!tag0,tag1,tag2!
  48.  
  49.  
  50.  
  51.  
  52. !test5!
  53. qs-5"e
  54.     test 5 passed (another simple jump, escape-terminated)13^T10^T
  55. |
  56.     reached test5 by mistake, terminating.13^T10^Todone
  57.  
  58. '
  59.  
  60. 6us@O!tag0,tag1,tag2!
  61. qs-6"e
  62.     test 6 passed (too large tag index causes fall through)13^T10^T
  63. |
  64.     test 6 failed, 13^T10^T
  65. '
  66.  
  67. 7us-1@O!tag0,tag1,tag2!
  68. qs-7"e
  69.     test 7 passed (too small tag index causes fall through)13^T10^T
  70. |
  71.     test 7 failed, 13^T10^T
  72. '
  73.  
  74. 8us@O!tag0,tag1,,tag2!
  75. qs-8"e
  76.     test 8 passed (an index to a null tag causes fall through)13^T10^T
  77. |
  78.     test 8 failed, 13^T10^T
  79. '
  80. 9us@O!tag0,tag1,,test9!
  81. test 9 failed, 13^T10^T
  82. 10usotest10
  83.  
  84.  
  85. !test9!
  86. qs-9"e
  87.     test 9 passed (index to tag past null tag works)13^T10^T
  88. |
  89.     test 9 failed, 13^T10^T
  90. '
  91. 10us@O!,,test10!
  92.  
  93. test 9 failed, 13^T10^T
  94. 10usotest10
  95.  
  96. !test10!
  97. qs-10"e
  98.     test 10 passed (index to tag past 2 null tags works)13^T10^T
  99. |
  100.     test 10 failed, 13^T10^T
  101. '
  102.  
  103. 11us
  104.  
  105. <
  106.   <
  107.     <
  108.       <
  109.         @O!endloop2!
  110.       >
  111.     >
  112.   >
  113.   !endloop2!
  114.   qs-11"e
  115.       test 11 passed (jumping from inner to outer loop works)13^T10^T
  116.       12us@O!done!
  117.   |
  118.     reached endloop2 by mistake, terminating.13^T10^Todone
  119.  
  120.   '
  121. >
  122.  
  123. !done!
  124. qs-12"e
  125.     test 12 passed (jumping completely out of nested loops works)13^T10^T
  126. |
  127.     test 12 failed, 13^T10^T
  128. '
  129. ex
  130.